home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / 3rd Parties / Services / VRToolworks / others.Dxr / 00023_Get.ls < prev    next >
Encoding:
Text File  |  1996-12-06  |  494 b   |  11 lines
  1. on mouseUp
  2.   global gPanoMovieID
  3.   if gPanoMovieID <> EMPTY then
  4.     put PanoMovie("Direct", gPanoMovieID, "Get", "hPanAngle") into field "HPanAngle"
  5.     put PanoMovie("Direct", gPanoMovieID, "Get", "vPanAngle") into field "VPanAngle"
  6.     put PanoMovie("Direct", gPanoMovieID, "Get", "zoomAngle") into field "ZoomAngle"
  7.     put PanoMovie("Direct", gPanoMovieID, "Get", "nodeID") into field "Node ID"
  8.     put PanoMovie("Direct", gPanoMovieID, "Get", "quality") into field "Quality"
  9.   end if
  10. end
  11.